88888 


SSSSS88888 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPP PPP 


PPP PPP 
PPPPPPPPPPPP 

PPPPPPPPPPPP 
PPPPPPPPPPPP 


AOMAAAOIOAOAIOOOONY 
AOMVOOAOOOAIAIAIOOOOY 
AOAOAOOAQAAIOAOOOOONY 


000000000 

000000000 

000000000 
000 


000 
000000000 
000060000 
000000000 


**F TLE**1D**ALLOCATE | 


AAAAAA LL LL 000000 CCCCCCCC «= AAAAAA-—Ss«<*ST'T'T'TT'T'TTTT EE 
AAAAAA LL LL 000000 CCCCCCCC © —AAAAAA~—ssTTTTTTTTTT EE 
AA AA LL LL 00 00 CC AA AA TT fe 
AA AA LL LL 00 00 ¢C¢ AA AA TT EE 
AA AA LL LL 00 00 CC AA AA TT 43 
AA AA LL LL 00 00 ¢C¢ AA AA TT EE 
AA AA LL LL 00 00 CC AA AA TT EEFEEEEE 
AA AA LL LL 00 00 CC AA AA TT EEEEEEEE 
AAAAAAAAAA = LL LL 00 00 CC AAAAAAAAAA TT fe 
AAAAAAAAAA LL LL 00 00 CC AAAAAAAAAA TT EE | 
AA AA LL LL 00 00 CC AA AA TT EE eaprs 
AA AA LL LL 00 00 CC AA AA TT EE bana 
AA AA LLLLLLLLLL LLLLLLLLLL 000000 CCCCCECC AA AA TT EEEEEEEEEE es | 
AA AA LLLLLLLLLL LLLLLLLLLL §=©=—- 000000 CCCCCCCE AA AA TT EEEEEEEEEE ihe | 
| 
LL WII SSSSSSSS | 
LL HI SSSSSSSS 
LL 1] SS | 
LL 1] SS 
LL 1] SS 
LL I] $$ 
LL 1] SSSSSS 
LL 1] SSSSSS | 
LL 1] SS 
LL 1] 5S | 
LL I] SS 
LL 1] $$ 
LLLLLLLLLL §©=sTTIII «= SSSSSSSS 
LLLLLLELLE «= sTIIII «= SSSSS5S5 | 
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wr 
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MODULE OPCSALLOCATE 


( 
EDGY. BLISS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH R F SUCH LICENSE AND WITH THE 

SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
S_THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
faauarehatee NO TITLE TO AND OWNERSHIP-OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SRReReAER AAA AERAKHHHAAHAHHAAATAHHTEREKETETETHKKEKeeReeeKeeKeKARteeeeeeeeeeee 


@aeeneneneeneeeeeeeeeaeeaene 


VeeeRee RRA AA HAA AHR ATAAAHRAHAHHKHRHHAREKAH Ke eee Kee eeteeeeteeeeeteneeeeene 


++ 
FACILITY: | 

OPCOM | 
ABSTRACT: | 


WALA POPOPOPUPIMPUNI IID 2 2 OO OS Oe 


WN $9 ODNOAUNE WN O DONOU EW -OOONOU FS WN 


WIN $9 OD NAVE WN OO O@VNOU FS WO 0O@ 


ey sive 


This module contains the logic to allocate and deallocate 
the various data structures used by OPCOM. 


SSSsssssesossooooooooosSooosess 


oe 


Ww 


Environment: | 
VAX/VMS operating system. 


=~ 
VePwn—oO 


Steven T. Jeffreys 


yoy at oy at ot ot ot WA. AIA AIP nonononononononony 2 2 2 
- Se uour 


Creation date: 
March 10, 1981 
Revision history: 


vO3-002 CwH3002 Ww Hobbs _ 16-Sep-1983 
Put VM calls in jacket routines to aid debugging. 


v03-001 CwH3001 Cw Hobbs 30-Jul-1983 
Various and sundry things to make OPCOM distributed 


' 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
; Author: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


PAA 


= 
oo 
NONE WO ODO 9S Wt OO 


OPCSA 
v04 


FFTSTEEIS 


Ok kt td ot od BOO OOOOO 


BEGIN 


LIBRARY 
LIBRARY 


FORWARD 


BUILTIN 


v02-002 


H 15 

16-Sep-1984 01:16:47 AX-11 Bliss-32 v4 
19-808- 1383 93:48:92 OPCOM. SRCJALLOCAT 
across the cluster. 


$7J0161 Steven T. Jeffreys, 08-Feb-1982 
Make references to Library routines use general addressing mode. 


! Start of ALLOCATE 


oP TSRUIORARY LIB. L32°: 
*L1B$:OPCOMLIB'; 


ROUTINE 
ALLOCATE_DS, Allocate data structure 

C OUD Create a new OCD and insert it into an OCD List 
Deallocate data structure 

Deallocate an MCB. 


Deallocate an OCD 


DEALLOCATE MCB : NOVALUE, 
CATE-OCD : NOVALUE, 


DEALLOCATE_RQCB : NOVALUE; Deallocate an RQCB. 
INSQUE, ! Insert entry onto a queue 
REMQUE ; ! Remove entry from a queue 


15 
Se tla 18-Sep-19 : 93:16:47 aerde eta V4.0-742 


-Sep-19 OPCOM.SRCJALLOCATE.B32;1 
¢ 8 1 GLOBAL ROUTINE ALLOCATE_DS (DS_TYPE, DS_ADDR) = 

O8§ | t+ 

: : Functional description: 

3 § This routine will allocate a block of process address space 

to be used as a data structure of the specified type. his 

00 3 routine will also write some structure dependent information 

0 into the data structure. 

090 

44 Input: 
0096 DS_TYPE = The data structure ef This is used as 

094 an index into the SCB table to get some 

0095 structure dependent information. 


Implicit Input: 


> 
Ld 
v 
QS 
» 
= 


$S$$_B Syston status value 
MIN~DS_TYPE, i Min STRUCTURE_TYPE value 
MAX_DS_TYPE; 


Max STRUCTURE_TYPE value 
LOCAL 


AA MIMUNINININININ 2 2 2 OOO SH DOOOOCOOOCOCO wooonononovon tt hart tr yr 
POPOROROPOROPONOPONONONUNOPONONONDD 2 2 9 9 es 


i 
} 
i 
i 
i 
00 : 
00 ' 
0098 : 
1 0099 } The SCB data base. 
1 0100 : 
1 0101 ! Output: 
1 8108 : 
1 010 ; DS_ADDR = An address of a longword to receive the data 
1 0104 : structure address. 
1 0105 : 
1 0106 ! Implict output: 
1 0107 : 
: Hs : The SCB entry for this structure type is updated. 
1 0110 ! Side effects: 
1 0111 : 
1 até : None. 
1 011 : 
1 0114 ! Routine value: 
1 0115 : 
1 0116 : TRUE = The altocate succeeded. 
: ate <anything else> = The allocate failed. 
1 0119 
‘ Bis9 BEGIN ! Start of ALLOCATE_DS 
1 0132 EXTERNAL ROUTINE 
: oI ? CLUSUTIL_NEXT_SEQUENCE; ! Get a cluster-unique sequence number 
1 125 EXTERNAL 
1 1 $ GLOBAL_STATUS : BITVECTOR (32), 
1 1 LCL_NOD : Sref_bblock, ' Local NOD block pointer 
1 01 LCL_CSID : LONG ! CSID of local node 
SCB~ TABLE : VECTOR; i §CB table of pointers 
: : EXTERNAL LITERAL 
1 1 
1 1 
1 1 
1 1 
1 01 


NOULSWN OO 


WALA 


$cB : Sref_bblock, 


SCB structure 


Page 


The look aside List was empty. 
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139 BLOCK : Sref_bblock, ! Block of VM allocated : 
0 SIZE : LONG, ! Size of the VM block | : 
STATUS : LONG; | : 

: 
i l ; 
? ; Make sure DS_TYPE is a legal value. | ‘ 
i IF, (-DS_TYPE LSS MIN_DS_TYPE) OR (.DS_TYPE GTR MAX_DS_TYPE) : 
' $signal_stop (SS$_BADPARAM) ; ; 
1 i Get the structure info from the appropriate SCB. 3 
¢ ; Allocate the structure from the look aside list if possible. | ; 
4 SCB = ,SCB TABLE C.DS_TYPE = 1); ; 
5 IF .SCB CSCB_W_LAL_COONT) GTR 0 : 
6 THEN : 
7 BEGIN 3 
8 sayy (.SCB CSCB_L_+LINK], BLOCK); ; 
, SCB CSCB_W_LAL_COONT) = .SCB CSCB_W_LAL_COUNT) - 1; : 
1 ELS ; 
¢ BEGIN : 

| ; 

| : 

’ 


Fill in the structure dependent information. 


BLOCK CHDR_L_FLINK i 
N BLOCK CHDR-L~FLINK); 


= BLOCK CHDR_L_FLINK); 

= 
HDR-WSIZE] = .SCB CSCB_O_SIZE2; 

= .DS_TYPE; 


5 i Allocate and zero a block of memory via OPCSGET_VM. 
6 ' LAL blocks do not have to be zeroed, as it is done 
when the blocks are put on the List. 

9 SIZE = .SCB_CSCB_W SIZE); 

9 it uot (STATUS = OPCSGET_VM (SIZE, SLOCK)) 

§ Pe iongtsteg (.STATUS); 

Z CHSFILL (0, .SIZE, .BLOCK); 

5 

6 

7 

8 

g 


wm 


| 
' | 
: Set the cluster-wide data structure sequence number. 


| 
SCB CSCB_L_SEQNUM) = Cuusyt it ees .seeuence (); ! Get a unique id and save it in the SCB 
BLOCK CHDR-L_SEQNUM] = .SCB CSCB_L SEQ ; ! Mark the block field (read-only, nobody else should touch) | 
HDR-L- IDENT] = .SCB CSCB_C_SEQNUM); ' Also save as the ident field (read/write, allocate doesn't | 

LCL te Zero means a local structure 


tm rhe BON SS A A Oy tet ee ee ey 
OOO NA NEW CO OO NOU EWN 0 ODNAU EWA 0 ODNOAUE WNC OODNOUE WH" O00 


HDR_i_CSIDJ = 
IF (BLOCK CHBR_L_NOD) = .C Od) NEQ 0 If in a cluster, set the local systemid field 


BEGIN 
BLOCK [HDR_L_SYSTE 
BLOCK CHDR-U_SYSTE 


RENLSSELES 


mIDL] = .LCL_NOD NOD _L_NODE_SYSTEMIDL}; 
MIDH] = :LCL7NOD CNOD"W~NODE~SYSTEMIDH); 


COOSOSOOOCOOCOCOOCOSOSOSOSOCOCOCOCOCSCOCOOSCOOOOOOCOOOOOOOOOOOOOOOOOOOCOOO 
2.$..4.142d aa a daisies dati atadat ata ad abated adaodad Dada dad a ab aad ad Dad Dad adadadadaD 


Looe BOOS POS Sati ln Soe we noe o> ote en oe Den we nee ne 


ee ee ee ee ee ee ee ee ee ee ee ee eee 


Fun 


© 
w 


K 15 
OPCSALLOCATE 16-Sep-1986 01:16:47 VAX=11 BLiss-32 v6.0-7% p 
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OPCOM. SRC JALLOCATE .B32;1 2) 
: 196 195 ' 
; 138 138 Set the address of the data structure in the output cell. 
: 199 198 2 .DS_ADDR = .BLOCK; 
: 200 199 
; 201 00 2 RETURN (TRUE); 
3 §¢ 01 
; 20 02 1 END; ' End of ALLOCATE_DS 
TITLE OPCSALLOCATE 
SIDENT \Vv04-000\ | 
«EXTRN CLUSUTIL_NEXT_SEQUENCE 
-EXTRN GLOBAL_STATUS; LCL_NOD 
~-EXTRN LCL CSTD, SCB_TABL 
.EXTRN SSS~BADPARAM, MIN_DS_TYPE 
-EXTRN MAX'DS TYPE, LIBSSTOP 
-EXTRN OPCSGET_VM 
-PSECT $CODE$,NOWRT,2 
OOFC 00000 ENTRY ALLOCATE_DS, Save R2,R3,R4,R5,R6,R7 : 0081 
5E 08 C2 00002 SUBL2 #8, SP : 
000000006 8F 04 AC D1 0000 CMPL DS_TYPE, #MIN_DS_TYPE : 0146 
0A 19 00000 BLSS *'1$ ; 
000000006 8F 04 AC D1 0000F CMPL DS_TYPE, #MAX_DS_TYPE : 
08 15 00017 BLEQ = 2$ ; 
000000006 8F bb 00019 1$: PUSHL #SS$_BADPARAM : 0148 
2B 11 OOO1F BRB 4$ : 
50 04 AC DO 00021 2s: MOVL  DS_TYPE, RO : 0153 
57 OOD0GCF40 D0 990 5 MOVL CB _TABLE-4(ROJ, SCB : 
02. AZ 83 0028 TSTW (StB) > 0154 
09 13 O002E EQL $ F 
6E 08 B7 OF 00030 REMGUE @8(SCB), BLOCK : 0157 
2 A? 67 000 DECW  2(SCB) : 0158 
35 11 900 7 BRB 5S > 0154 
04 AE 67 3C 00039 3s: MOVZWL (SCB), SIZE : 6168 
5E DD 00030 PUSHL SP : 0169 
08 AE 9F 0003F PUSHAB S126 : 
00006 CF Q FB 004¢ CALLS #2, OPCSGET_VM ; 
OA EB 0004 LBS STATUS, 5$ ; 
50 DD O004A PUSHL STATUS : 0171 
000000006 00 01 FB 006¢ 4$: CALLS #1, LIBSSTOP ; 
04 9005 RET : 
56 6F DO 00054 S$: MOVL BLOCK R6 : 0172 
04 AE 00 6E 0 2C¢ 00 3? mMOVCS #0, (SP), #0, SIZE, (R6) F 
AS 58 D 3 MOVL 6, (R6) : 0176 
4 Ab $ D 6 MOVL 6 4(R6) ; O17? 
8 Ab 6 8 65 MOVW (SEB), 8(R6) : 0178 
OA Ab 04 AC 69 MOVB DS_TYPE, 10(R6) : O19 
00006 CF 99 F $ 6$ CALLS #07 CLUSUTIL_NEXT_SEQUENCE > 0185 
06 A? D MOVL RO, 4(S°B) : 
50 6f D 7 MOVL BLOCK, RO > 0186 
oc A 04 A? D 7A MOVL  4(SCBS, 12(R0) : 
10 A 4 a? O 7F MOVL 4(SCB), 16(RO) ; 0187 | 
| 
| 


tore 


1$Beo-19Rs O):16:47 


8189 


MOVL 
MOVL 
MOVL 
BEQL 
MOVL 
MOVW 
MOVL 
MOVL 
RET 


NMDoOr 
oooso 
Sh seth oe | 
ooooo 


Routine Base: SCODE$ + 0000 


167 bytes, 


a 
Pad 
- 
” 
ao 
c 
- 
3 
a 
. 
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GLOBAL ROUTINE CREATE_OCD (SCOPE, UIC, BLOCK) : NOVALUE = 


144 


OOO 
LES 


08 0 i Functional description: 
6 This routine contains the specializedlogic to creave and initialize 
0 an OCD and to insert it onto the appropriate OCD List. The OCD List 
: depends on the SCOPE. 
: Input: 
1 SCOPE The sccpe of the OCD. 
! vIC The UIC of the OCD. 
' Implicit Input: 
1 None. 
Output: 


address of the new 
Implict output: 


FUN AZSSRVRORUN = SoMNenruwnwooD 


POPOURIPOROPONOPO PUNO noPononofononofnonofnoronopnofnorngon 


IWWNAIWINIWARI PIPPI PUNONUNINIDYD I SS SS 


PWN 9 OONOA UE WN | 9 ODNAUE WN O OONAYL EWN" OODONOUEW 


BLOCK : The address of a “y" ore to receive the 
| 


SOOSSOOCOSOOOSOOOSOSOSOSOOSOCOOSOOSOOSSOOOSOOSOOCOSOCOOCOOOCOOCOOOOOSDOOOOOOOOOOOO 


PRO DROPOPOPONOROPORENONOPONOPONINOPUPPUDD 4 9 = 2 es 


Be Be Os Oe Be Ge Se Se Se Ss Se Be Bebe Be Be Se Se Fe Se Fe Fe Ge Fe Ge Ge Se Se Ge Ge Ge Ge Ge Gs Ge Ge Fe Ge Se Se Se Se Se Se Se Be Se Se Geese ee Fe Se Se Se eee 


$$ 
22 
2 
- 
2 
32 None. 
23 Side effects: 
23 
23 None. 
5 23 
236 23 Routine value: 
237 23 
238 23 None. 
239 23 -- 
240 23 
$e) $2 BEGIN ! Start of CREATE_OCD 
308 24 EXTERNAL LITERAL 
sis st OCD_K_TYPE; ' Structure type 
246 4 EXTERNAL ROUTINE 
see rb ALLOCATE_DS; ! Allocate a data structure 
209 <3 EXTERNAL | 
29 se8 OCD_VECTOR : VECTOR; ! Pointers to OCD List heads 
354 50 5 LOCAL | 
5 51 STATUS : LONG, 
54 6 ocd : $Sref_bblock; ! OCD data structure 
26 3 | 
Ad 55 i NOTE: This routine is incomplete, and must later be enhanced | 
28 2$ to create and Link in a default LCB as well. 
$60 58 if NOT (ALLOCATE_DS (OCD_K_TYPE, OCD)) ! Allocate a new OCD | 
261 59 THEN | 
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51 


51 


54 

5é 
0000G CF 
66 

50 

60 

04 Ad 
3¢ = AD 
40 Ad 
50 = AO 
54 AO 
0B AO 
24 =A0 
¢§ AQ 
0 Ad 
52 

52 

FC A441 


001C 00000 
0000G CF 5 00002 
04 C2 00007 
5E 0D OOO0A 
000000006 8F DD 0000C 
02 FB B00 1s 
90 €9 0001 
gf pe QOO1A 
50 00 0001D 
50 00 00020 
$f AO 9E 880 4 
C AO YE 00029 
50 AO YE B08 
50 = AO 43 bp 
04 ac 9 
08 aC 00 3 
Sl cE 4 
1 CE 0004 
0B A0 f. 004A 
01 78 0004 
“ 13 Bae 
gs Bs 
0 00 00058 


>; 26 60 RETURN (.STATUS); 

> 26 61 OCD peo LL INK, = 6cd FOC LFLINK 2: ! Init OCD List head 

> 264 86 ocd OCD at BL INK = QCD LOCD L_FLINK); : 

; 265 6 OCD COCD“L-ROSTFLINK) = OCD [OCD_L_RQSTFLINK]; | Init request List head 
> 266 64 OCD LOCD_L_RQSTBLINK] = OCD LOCD_L_RQSTFLINK]; ! 

; 267 65 OCD LOCD_L_OPERFLINK] = OCD LOCD_L_OPERFLINK]; ! Init operator List head 
> 268 + OcD 61 Fe a = OCD LOCD_L_OPERFLINK); ! 

> 269 8 6 OCD LOCD_B_SCOPE) = .SCOPE; ' Set the OCD SCOPE 

; 270 68 OCD LOCD_L_UIC] = .UIC; ' Set the OCD VIC 

s er 0 4 OCD OCD-L-NOTIE YMASK] = -1; ' Broadcast all messages 
H Lf 8 4 ocd OCD_L_NOTIFYMASK2) = -1; : 

: 276 0 Le ! Imsert the OCD in the sporeer sees OCD List. If the List is empty, 

; e275 027 ! then this OCD will be ist head, and the ocp. tVECTOR must be 

; 276 0274 ! made to point to it. After inserting the OCD, increment the OCD count 
: sit 0878 for this List. 

; 443 0377 Fah vecTen C(.0CD COCD_B_SCOPE]-1)*2+1] EQL 0 

; $e 5343 Use VECTOR C(.0CD COCD_B_SCOPEJ-1)*2] = .OCD! Make OCD_VECTOR point to the OCD 
; $B 0281 INSQUE (.0CD, .OCD_VECTOR ([(.0CD COCD_B SCOPEJ-1)*2]); 

> 284 bse OcD VECTOR C(.ocb Cocp= _B_SCOPE -1)*2+1) = -OCD_ VECTOR - bcp COCD_B_SCOPEIJ-1)*2+1]) + 1; 
; «285 028 -BLOCK = .OCD; ! Return OCD address 

; 286 0284 

; 287 0285 ! End of CREATE_OCD 

; INFO#250 L1:0260 

3; Referenced LOCAL symbol STATUS is probably not initialized 


-EXTRN OCD_K_TYPE, OCD_VECTOR 


-ENTRY CREATE OCD, Save R2,R3,R4 
MOVAB OCD. ae OR=4, R4 


NOOONAOUS WIN 


NIA AAA AAO 


—TOMMOOCWOZ BO KCK TOMMNOOOZ SE KOK TOM OOCOZ SE KCK TO MM™MOOOZ Sr KCK TOA "MIOOW 


OPCSALLOCATE 
v04-000 


; Routine Size: 


51 


129 bytes, 


00 


oc 


Routine Base: 


S o 
oOo 

> 

ea 
MEOPARLOO 
ON —MO— 20 


oa 
7 


& 4 
16=Lep-1984 0 
14-Sep-1984 1 

11 00060 RB 
78 00062 1$: ASHL 
DE 00066 OVA 
OE 00068 INSQ 
DO OOO6F 2$: MOVL 
9A 00072 MOVZ 
C4 oo78 MULL 
D6 it INCL 
DO 0007C MOVL 
04 00080 3$: RET 


SCODES + O0A7 


7 = VAK=11 Bliss-32 V4.0-742 
COPCOM. SRC JALLOCATE.B32;1 


R1 
TOR-8CR1], R3 
0(R3) 


ro: —WMo- 


TOR=4(RO) 
OCK 
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4 
| 14-Sep-1984 12:50: OPCOM.SRCJALLOCATE .832;1 
89 GLOBAL ROUTINE DEALLOCATE_DS (DS_ADDR) = 


ee 
Functional description: 


i This routine will deallocate a data structure. 
; The data structure is zeroed and placed on the 
appropriate free List. 
Input: 
DS_ADDR = The address of the data structure. 
; Implicit Input: 
: The SCB data base. 
Output: 

; None. 
; Implict output: 

! The SCB entry for this structure type is updated. 
Side effects: 

. None. 

Routine value: 

i 
i 
i 


TRUE = The deallocate succeeded. 
<anything else> = The deallocate failed. 


WEP. AAA AAAI ANI 


BIFRFEUNSLSSRNVSRREN LS SOLS ARC AOSS IRAP AW LOO VR RR LO 


AAA AALS IAAI AAAI AIA W 


MINI 2 4  - t - - @QOODOODOOCOOOVOOOOOOO + part -4 


PEAPIPIPIPIPPOPPPUPIMPIPUNINIPYPIIIA 3 sn i i kt th ts at tt 8 8 

! 

> 
4 
wv 
Qb& 
g 
7 


SOOO OCOOQOOCOOOCOCOOCOCOCOCOOO SS GOCOOCO BDO COO OCOCCOOCOCOOSCOOOOCOOCOOOOOOOO 


Sa Be Be Oe Be Be Se Oe Oe Oe Oe Se Se Oe Oe SERB e Be Oe Be BHO Be Ge OH He Oe Oe Oe Oe Oe oe Oe He Oe Se Oe Oe Oe Se Oe Oe Oe Oe OH Se Oe Oe Oe Oe OH Oe OH Oe eee 


BEGIN ! Start of ALLOCATE_DS 
DS_ADDR : Sref_bblock; 
EXTERNAL 
SCB_TABLE : VECTOR; ' $CB table of pointers 
EXTERNAL LITERAL 
$$3$_B8 : ayeten status value 
MIN_DS_TYPE, ! Min STRUCTURE_TYPE vaiue 
MAX_DS_TYPE; ! Max STRUCTURE_TYPE value 
LOCAL 
39 S¢CB : Sref_btlock; ' $CB structure 
0 : 
.} 3 Check input parameter. 
ig 0 3 IF (.DS_ADDR (HDR_B_TYPE] LSS MIN_DS_TYPE) 
4 1 OR (.DS_ADDR CHDR'B_TYPE) GTR MAX_DS_TYPE) 
5 2 OR (.DS-ADDR EQ. 0) 


OPCSALLOCATE 
vO4=006 


eee Oe ee Oe Be Oe Se See ee Ge OHHH BH ae 
w 


000000006 8F 
000000006 8F 


50 


; Routine Size: 


THE 


PPPS DITIIII EE 
DNAS EW" O OODNOUE Ww 
un 
oO 


1 END; 


OA A? 
OA A? 
00 


78 bytes, 


! The first 


N 
RETURN (FALSE); 


28 A? 


Routine Base: 


D 16 
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i Jero the block and place it on the correct look aside List. 
: 11 bytes of the data structure are not zeroed, because 
they contain info that will identify the structure. 


! Get the SCB address 
Mark this an LAL block 


AL) = TROE: i 
BOR CHDR_L_FLINK], SCB CSCB_L_FLINK]); ! Put structure on LAL 
SCB_W-LAL_COUNT] = .SCB (SCB_w_LAL~COUNT) + 1; i Incr. the LAL count 


RETURN (TRUE); 


! End of DEALLOCATE_DS 


OCFC 00000 .ENTRY DEALLOCATE_DS, Save R2,R3,R4,R5,R6,R7 
04 ac 00 00002 MOVL DS_ADDR, 
99 FD 90006 CMPZ2V #07 #8, 10(R7), #MIN_DS_TYPE 
9 19 0001 Lss.—ié‘SSV 
00 FD 0012 CMPZ7V #0, #8, 10(R7), #MAX_DS_TYPE 
g0 4 0001C¢ BGTR 1$ 
7 D3 OO1E TSTL =-R? 
29 13 00020 BEQL ~=sésésd$ 
OA A? 9A 00022 MOVZBL 10(R7), RO 
O000GCF40 po 0026 MOVL SCB TABLE=4CROJ, SCB 
be ¢ 002¢ MOV2WL (SCB), R 
¢ O02F SUBL2. #11, RO 
C 000 : MOVCS #0, (SP), #0, RO, 11(R7) 
OB OA 00 
01 88 00039 BISB2 #1, 40(R7) 
08 Ab 9E 99 D MOVAB 8(R6), RO 
67 OF 00041 INSQUE (R7), (RO) 
02 Ab B6 00044 INCW 2 SCB) 
01 DO 00047 MOVL #1, RO 
4 0004 RET 
50 04 00048 18 CLRL ~—_ RO 
4 00040 RET 


SCODES + 0128 


SCB_wW SIZE} = SBYTEOFFSET (HDR_B_SCOPE)), (.DS_ADDR + SBYTEOFFSET (HDR_B_SCOPE);); 


Pete Se Se Ge Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Be 


2 
UR ad 


C 


ae 


2 


16 
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AX=1 
OPCO 


ze 
. 
“Ww 
ze 
o— 
um 
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! Start of DEALLOCATE_MCB 


Deallocate a data structure 


! MCB structure type 
! System status code 


: 4 28 ! GLOBAL ROUTINE DEALLOCATE_MCB (MCB) : NOVALUE = 

: 365 61 J 14s 

e 68 i ee canncticions | Riad 
; ' s routine contains the specialized lo t 
: 4 22 ! } deallocate an MCB. : fiche: 
; f} 5 : Input 

; 74 § MCB : Address of an MCB. 

: a rt : ; Implicit Input: 

: a4 0 74 None. 

: "3 0 ro 4 i Qutput: 

: a 037 : None. 

: Hy §378 1 ' Implict output: 

3 84 Beno 1! 

i 386 O32 1 | iE 

; 4 038s } Side effects: 

im mips 

: 391 0387 1 | Routine value: 

; 0388 1! 

; 0389 1! None. 

Boel 

: 396 039¢ 2 BEGIN 
: 35 O80 5 map 

; 399 0395 MCB : $Sref_bblock; 

> 401 $399 EXTERNAL ROUTINE 

; 40 0398 DEALLOCATE_DS; 
> 404 0400 2 EXTERNAL LITCRAL 

: 408 $603 S$ BADPARAN 
Pe a Pe Rar 

; 409 0:84 ROCB : $Sref_bblock; 

: 411 40 ' 

: $18 rts If block address is 0, then there is no work to do. 
; 414 410 IF NCB Eo. 0 

: 416 41g | RETURN; 

: 418 Beta i Make sure this is an MCB. 

3; 419 415 : 


OPCSALLOCATE 
VO4=006 


420 


MEWN—OOONOULS WN 
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WANN 


000000006 8F 


; Routine Size: 


F 16 
16-Sep-1984 01:16:47 AX-11 Bliss-32 V4.0-742 Page 13 
12-Sep-19 4 $3: 735 OPCOM.SRCJALLCCATE.B32;1 ° (5) 
rt IF (.MCB CMCB_B_TYPE] NEQ MCB_K_TYPE) 
4) THEN 
£13 RETURN; 
420 ! If the MCB points to any message text, deallocate 
re 1 the text buffer. 
8 § IF .MCB CMCB_L_TEXTPTR] NEQ 0 
0424 THEN 
0425 BEGIN 
04 $ OPCSFREE_VM (MCB (MCB_L_TEXTLEN, MCB CMCB_L_TEXTPTR]); 
4 MCB CMCB-L_TEXTPTR] ="0; 
: 3 : END; 
0430 ' Deallocate the MCB. As an added precaution, 
Be 1 } explicitly zero the RQCB backpointer. 
$038 RQCB = .MCB CMCB_L_ROQCB); ! Get back pointer to RQCB 
pee IF NOT (.RQCB EQC 0) 
0435 THEN 
043 ROCB CROCB_L_MCB) = 0; ! Break Link from RQCB to MCB 
043 MCB CMCB_L_RQCB) = 0; ! Break Link from MCB to RQCB 
Bees DEALLOCATE_DS (.MCB); 
0440 1 END; ! End of DEALLOCATE_MCB 
EXTRN MCB_K_TYPE, OPCSFREE_VM 
0004 00000 «ENTRY DEALLOCATE_MCB, Save R2 ; 0359 
52 04 as 0 44h MOVL MCB, R2 ; 0410 
oe oo88 BEQL ; 
OA A2 08 00 €D 0000 CMPZ7V #0, #8, 10(R2), #MCB_K_TYPE ; 0416 
26 12 00012 BNEQ ; 
34 A2 05 00014 TSTL 2(R2) ; 0423 
OE 1 4 SE BEQL 1$ ; 
38 A2 9F 00019 PUSHAB 5 (ng) ; 0426 
0 A2 9F OOOIC PUSHAB 48(R2) P} 
0000G CF 0 FB QOOTF CALLS 8 PCSFREE_VM : 
34 AZ D4 00024 CLRL (Re) ; 0427 
50 24—C«<«iAM 0 0027 1$: MOVL 6(R2), RQCB ; 0433 
03 13 00028 BEQL $ : 04 
gf AQ 04 88 CLRL 08(RQCB) ; 04 
4 A2 D6 23: CLRL 36(R2) : 04 
3 DD 88 PUSHL Re ; 04 
0000G CF FB CALLS #1, DEALLOCATE_DS : 
04 0005A 3$: ET : 0440 


59 bytes, Routine Base: S$CODE$ + 0176 
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GLOBAL ROUTINE DEALLOCATE_OCD (OCD) : NOVALUE = 


lee 
' Functional description: 


This routine contains the specialized logic to deallocate 
an OCD to the appropriate free List. 


Input: 
ocd : Address of an OCD 
Implicit Input: 
None. 
Output: 
None. 
Implict output: 


ee 


None. 
Side effects: 
None. 
Routine value: 
None. 
BEGIN ! Start of DEALLOCATE_OCD 
MAP 
ocd : Sref_bblock; ! OCD structure 
EXTERNAL ROUTINE 
DEALLOCATE_DS; ! Deallocate a data structure 
EXTERNAL LITERAL 
OCD_K_TYPE; ! OCD structure type 
EXTERNAL 
OCD_VECTOR : VECTOR; ! Pointers to OCDs 
LOCAL - 
TEMP : LONG; ! Used to receive an address 


1 

Make sure that the data structure is an OCD. 

if (.OCD EQL 0) OR (.0CD COCD_B_TYPE] NEQ OCD_K_TYPE) 
RETURN; 


OPCSALLOCATE 
04-000 


; 3 9 
: 332 299 
; 505 0 
3 89 1 
: 308 
: 316 0805 
3 11 289 
: 21g 50 
3 1 508 
3 213 509 
3 15 510 
; 516 0511 
s S17 B2i6 
:; 518 051 
; 519 0514 
; 520 0515 
s Sel 0516 
:. ¢ 0517 
2; = 0518 
; $26 0519 
3s Se 0520 
3; 526 0521 
3 Ser 0522 
00000000G_ 8F OA 


H 16 

16-Sep-1984 01:16:47 
1exgee- 138s 93:28:42 
If the OCD is still busy, do not deallocate it. 


if (.0CD OCD_u_OPERCOUNT] NEQ 0) 
OR (.0CD COCD“WIRQSTCOUNT] NEQ 0) 
OR (.0CD COCD-L“LCBJ NEQ 0) 


RETURN; 


' Decrement the OCD count of the appropriate location in 
' the OCD vector and remove the OCD from the OCD List. 

! If the count went to zero, then the pointer to the first 
OCD in the OCD vector must be zeroed. 


REMQUE (OCD COCD_L_FLINK], TEMP); 


AX- 
OPC 


11 
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8 
x) 


Li 
RC 


aA 


=32 V4.0-742 
ALLOCATE .B32;1 


OCD_VECTOR C¢-ocb-COCD B_SCOPEJ-15#2+1] = .OCD_VECTOR [(.0CD COCD_B_SCOPEJ-1)*2+1] = 1; 


IF, {OCD.VECTOR C(.0CD TOCD_B_SCOPEJ-1)*2+1) EQ 0 
OCD_VECTOR C(.0CD COCD_B_SCOPEJ-1)*2] = 0; 

; Release the OCD. 

DEALLOCATE_DS (.0CD); 


; Routine Size: 74 bytes, Routine Base: S$CODE$ + 0181 


2(RO) 


1 END; 
0004 00000 
50 04 Ac 09 00002 MOVL 
41 13 00006 E 
AO 08 09 ED 00008 
12 00012 BNE 
46 AO B5 00014 TSTW 0(RO) 
30 if 00017 BNEQ 
3a «AO B 90019 TSTW 8(RO) 
2B if 001C BNEQ 
34 AO D OO01E TSTL 
26 12 000 BNEQ 
51 60 OF 00023 REMQUE (RO), TEMP 
52 04 Ac po 0026 MOVL OCD, R 
51 08 Ae A 00 A MOVZBL 11(R2), R1 
50 51 0 78 ASHL 1 
OO00GCF4N D 09 DECL ocd 
9 iF 0 BNEQ =*'1$ 
50 51 . FF 0039 ASHL #1 
o0006cF 49 D4 0 p CLRL OOO 
52 DD 00042 18: PUSHL R 
0C00G CF 07 FB 00044 CALLS @ 
04 00049 2$: RET 


! End of DEALLOCATE_OCD 


RI. R 
_VECTOR=4(RO] 


R1, RO 
6_veeCTOR-8C[ROJ 
, DEALLOCATE_DS 


-ENTRY DEALLOCATE_OCD, Save R2 
OCD, RO 


BEQL 
eee #0, #8, 10(RO), #OCD_K_TYPE 
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; & 8 ; ! GLOBAL ROUTINE DEALLOCATE_RQCB (RQCB) : NOVALUE = 

: $31 05 5 1 tee 

: ¢ be § : Functional description: 

; 98 » Tf This routine contains the specialized logic to 
5 é 5 B2 9 1! deallocate an RQCB and any data structures that 
3 530 1! that may be Linked to it. 
Be, 

; ! Input: 

: $39 pasg i in? 

; 40 2 4 1! RQCB : Address of an RQCB. 

are 23% 1 i Implicit 1 

: ! Implic nput: 

3 28 5 $ 1! 

; 544 0538 1! None. 

3 3465 0539 1! 

; 546 0540 1 ! Output: 

3 547 0541 1! 

>; 548 B26 1! None. 

; 549 0545 1! 

: 550 0544 1 ! Implict output: 

3 331 0545 1! 

3 226 0546 1! None. 

3 3 0547 1! 

5g. S36 0548 1 ! Side effects: 

s 355 0549 1! 

s 556 0550 1’ None. 

s 337 0551 1! 

; 558 beg 1 ! Routine value: 

; 559 0553 1! 

; 560 0554 1! None. 

s 361 0555 1 !-- 

3 266 0556 1 

s 36 0557 2 BEGIN ! Start of DEALLOCATE_RQCB 
3: 564 0558 § 

3 365 0559 

; 566 0560 § RQCB : Sref_bblock; 

s 567 0561 

; 568 8206 2 EXTERNAL ROUTINE 

3; 569 056 DEALLOCATE_DS ' Deallocate a data structyre 
; 370 0964 DEALLOCATE-MCB : NOVALUE; i Deallocate an MCB 
; 278 0366 EXTERNAL LITERAL ; 
; 32 56 RQCB_K_TYPE; ! RGLB structure type 
: te 0568 

s 575 9267 ! 

3 278 0570 ! If no block specified, then return. 

5. Sv B27) ! 

; 578 276 IF .RQCB EQL 0 

; 579 057 THEN 

; 580 0574 RETURN; 

; 581 8222 ! , 

$ Ht 278 : Make sure this is a RQCB. 

: 584 0378 if (.RQCB CROCB_B_TYPE] NEQ RQCB_K_TYPE) 

; «#585 057 THEN 


J 16 
OPC SA OCATE 1? ety r 91:16:47 AX-11 Bliss-32 V4.0-762 Page Bl 


35 OPCOM. SRC JALLOCATE .832;1 


H 9 RETURN; 
3 § ; If there is an MCB Linked to the RQCB then deallocate it. 
; 4 2 iF .ROQCB CROCB_L_MCB) NEQ 0 
3 é 5 THEN 
: $ BEGIN 
: 5 Rech Phaci-c n (,RQCB CROCB_L_MCB)); 
; 588 ROCB CROCB-L_MCB) = 0; 
3 286 ), END; 
; 23) i If the operator name descriptor is valid, deallocate 
: 236 } the block of memory it points to. 
; 0594 2 iF .RQCB CROCB_L_OPER_PTR] NEQ 0 
| Bg Macc 
; 0597 OPCSFREE_VM (ROCB CRQCB_L_OPER_LENJ, RQCB CRQCB_L_OPER_PTRI); 
; 598 RQCB CROTB_L_OPER_PTR) = 0; 
; 8283 , END: 
; 0601 i If the request/reply text descriptor is valid, 
; Bong ! deallocate the block of memory it points to. 
; 609 060 ! 
: 0604 2 iF .ROCB CRQCB_L_TEXT_PTR] NEQ 0 
; gt S608 THEN GIN 
: gig be09 OPCSFREE_VM (RQCB CRQCB_L_TEXT_LENJ, RQCB CRQCB_L_TEXT_PTR3); 
> 614 0608 ROCB CROCB_L_TEXT_PTR) = 0; 
; 615 0609 END; 
; 616 0610 : 
3; 617 0611 ! Deallocate the RQCB. 
: 618 b6i¢ ! 
: o3) oF DEALLOCATE_DS (.RQCB); 
: 621 0615 1 END; ! End of DEALLOCATE_RQCB 
.EXTRN RQCB_K_TYPE 
000c 00000 -ENTRY DEALLOCATE_RQCB, Save R2,R3 ; 0523. 
52 04 ac 9 00002 nov RQCB, R2 ; 0572 
000000006 8F OA A2 08 i ap CMPZV #0, #8, 10(R2), #ROCB_K_TYPE : 0578 
6C Ad D $01 TSTL =: 108 (R2) > 0584 
0B 13 00017 BEQL 1$ ; 
6C Ae DD 00019 PUSHL  108(R2) : 0587 
0000G CF 01 FB bat CALLS #1, DEALLOCATE_MCB : 
6C A pe 1 CLRL 19 (R2) ; 0588 
53 0080 (2 ° 4 1$: MOVAB 128(R2), R3 ; 0594 
6 o§ 9 TSTL (R35) : 
g 0028 EQL 2 ; 
DD 8 D PUSHL R ; 0597 
7C «=6A2 OOF F PUSHAB 124(R2) 3 
0000G CF 02 FB 00032 CALLS #2, OPCSFREE_VM : 


K 16 
OPCSALLOCATE 16-Sep-1984 7 AX-11 Bliss-32 V4.0-742 
v04 12: ~fep- 1382 9}: 48: 48 OPCOM. SRCTALLOCATE.B32¢1 
6 4 7 CLRL (R3) 
53 0088 8 3 2$: MOVAB T2gtRe). R3 
TSTL sf ) 
D 4 BEQL 
pp 4 PUSHL R 
0084 f F 4 PUSHAB 132(R2) 
0000G CF FB 48 CALLS #2, OPCSFREE_VM 
: D4 00040 CLRL =. (RB) 
DD OOO4F 3$: PUSHL R2 
0000G CF 01 FB 00051 CALLS #1, DEALLOCATE_DS 
04 00056 4$: RET 
; Routine Size: 87 bytes, Routine Base: S$CODES + O1FB 
3 o¢¢ 0616 1 
3 6 0617 1 END ' End of ALLOCATE 
; 624 0618 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
; SCODES 594 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: eoccer== Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
; _$255$DUA28: CSYSLIBILIB.L32;1 18619 3 0 1009 00:01.8 
; ~$255$DUA28:COPCOM. OBJ JOPCOMLIB.L32;1 633 48 7 4 00:00.8 
3; Information: 1 
3; Warnings: 0 
; Errors: 0 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ALLOCATE/OBJ=OBJ$:ALLOCATE MSRC$:ALLOCATE/UPDATE=(ENH$:ALLOCATE) 
3; Size: 594 code + 0 data bytes 
: Run Time: 0016.9 
: Elapsed Time: 753.6 
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3; Lines/CPU Min: 6¢8) 
; Lexemes/CPU-Min: 17626 
3 "| Used: 98 pages 
; Compilation Complete 


T CORPORATION 
PROPRIETARY 
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